X<-read.table("data/data.txt")
Y<-X[,1]
#Y[Y>10]<-10
X<-X[,-1]
v<-apply(X,2,sd)
m<-apply(X,2,mean)
X<-t(apply(t(apply(X,1,"-",m)),1,"/",v))
X<-cbind(1,X)
n<-nrow(X)
p<-ncol(X)
